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MODULE PATCON ( 
VARIANT EQL 1 


ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE), 
NT = *V04-000") = 


BEGIN 
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‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


ie res SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
t* ONLY | Gon’ be ae wate THE TERMS OF SUCH bce we ee 


; NCLU 0 T_NOTIC 0 
's COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- Se okat itn. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR > pata OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


SSsssooeososooooSeSS 


ee ee me ee ee a ea a a a a ee ee a ee ee ee a ee ed ed a a ad ed eed ad ad = QO OOOOOD 
- 
2 


Be Be Be Be Os Be Be Fe Se Be Se Se Be Ge Se Se Se Ge Fe Se Se Ge Se SH Se SF Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se ae Se Ge Se we 


1 
5 | coeseecnnonsesonennecnsesowenoooceeqqesersnnesseseoesenonceqcesesnceeseeed 
1 

3 FACILITY: PATCH 

3 i+e 
oe FUNCTIONAL DESCRIPTION: 
003 CONVERSION ROUTINES. 

03 i Version: v02-010 
ane ! 

041 ! Mistery: 
984 ! uthor: 
B07 : Carol Peters, 18 May 1976: Version 01 

gos i Modified by: 

p66 ! 
004 : v02-010 PCG0001 Peter George 02-F EB-1981 

0968 Add require statement for LIBS:PATDEF .REQ 

050 : 01.09 CNHO013 Chris 27-Aug-1979 13:30 
0051 : Added double byte OPe ny Sup ort. Changed use of PATSCONV_R_50 
O2¢ to the RTL routine RSOASC. Removed the former from this module. 
O94 : MODIFICATIONS: 

O28 NO DATE PROGRAMMER PURPOSE 
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SRCIJPATCON.B32; 


$-32 V4.0-742 


VAX-11 Blis 
DISKSVMSMASTER:CPATCH 


Sep-19be 15:58:30 


bose 


1 
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! Converts a string to a value 


: NOVALUE; 


PATSRADX_CONVRT 


FORWARD ROUTINE 


! Defines literals 


! Pointer to current modes 


PATS$GB_MOD_PTR: REF VECTOR C, BYTE); 
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M9 
16-Sep-1984 00:26:45 VAX-11 Bliss-32 V4.0-742 Page 4 
14-Sep-19 4 99:85:43 DISKSVMSMAST Ri CPATCH.SRCIPATCON.B32; 1° (3) | 
H 6 ¢ ! GLOBAL ROUTINE PATSRADX_CONVRT (STRING_ADDR, VALUE_ADDR) : NOVALUE = | 
; 636 1 144 | 
; ! FUNCTIONAL DESCRIPTION: 
; 0639 1 Converts an ascii string to a longword value in the current radix. 
; 54 ! CALLING SEQUENCE: 
: $8 1! PATSRADX_CONVRT () 
; & 0644 1! 
; Bete 1 ! INPUTS: 
2, 968 1! 
; WW 0647 1! STRING_ADDR - Address of ascii seeing 
3 199 pose : } VALUE _ADDR - Address in which to put converted value 
: 106 0650 1 ! IMPLICIT INPUTS: 
; 0651 1! 
; 104 Bo3¢ 13 Contents of PAT$gb_mod_ptr Cmode_radix], which is the current 
; 105 0655 1! radix. 
; 106 0654 1! 
; 107 0655 1 ! OUTPUTS: 
; 108 3628 1! 
: 109 0657 1! none 
; 110 0658 1! 
; WW 0659 1 ! IMPLICIT OUTPUTS: 
; iN¢ 0660 1! f 
3 (41 0661 1! A signal and unwind occurs if the conversion fails. 
3: 6116 0662 1! The converted value is placed in the address passed as the 
s 95 0665 1! second argument. 
; 116 0664 1! 
.. Bar 0665 1 ! ROUTINE value: 
; «118 0666 1! 
3; «6119 0667 1! novalue 
; 120 0668 1! 
3s Vey 0669 1 ! SIDE EFFECTS: 
; \$¢ 0670 1! 
, Ve 0671 1! none 
3 \¢¢ 0672 1! 
3 (Ve? 0673 1 !-- 
; 126 0674 1 
3 (Ver 0675 BEGIN 
5 \¢8 067 | 
3 \¢ go? BUILTIN 
3 : . of8 EMUL; ! Longword mul and add to get quadword 
; 132 680 MAP 
; 13 81 STRING_ADDR: REF VECTOR C, BYTE], 
: 13 $8 VALUE_ADDR: REF VECTOR; 
; 136 34 LOCAL | 
: 137 $8? GIVE_MESSAGE ! Error flag 
> 138 6 value : VECTORC2,LONG), i Converted value 
3; «64139 68 NEGATE, ! Negative number flag | 
3 Hr ret} HAR; ! Character-holding variable 
3 «(142 0690 VALUECO) = 0; | 


~TITLE PATCON 
-IDENT \V04-000\ 


.EXTRN PATSGB_MOD_PTR 
.PSECT _PATSCODE ,NOWRT,2 


001¢ 80000 sENTRY PATSRADX_CONVRT, Save R2,R3,R4 ; 0634 
04 C2 00002 SUBL2 #4, SP 


9 
C 16-Sep-1984 00:26:45 -VAX-11 Bliss-32 V4.0-742 Page 5| PA 
v04-000 1 =3007 138% 99:48:33 DISKSVMSMASTER:CPATCH.SRCIPATCON.B32:1> (3) | 
> 143 691 2 VALUEC1) = 0; | ; 
5 164 63¢ GIVE MESSAGE = FALSE; | F 
: (145 69 NEGATE = PAL SEs 3 
i 146 694 @ INCR N FROM 0 fO (NUM_MAX_LENGTH = 1) DO ; 
3 14 695 BEGIN 3 
5 148 696 IF (CHAR = ,STRINGADDR C.NJ) EQL 0 THEN EXITLOOP; ; 
> 149 697 4 IF (.N EQL 0) ; 
; 150 698 3 THEN ; 
; 131 99 4 BEGIN ; 
. 9 ; 00 5 IF (.CHAR EQL '=") ; 
: 15 0701 4 THEN ; 
; 134 070¢ BEGIN ; 
; 155 7 NEGATE = TRUE; : 
> 156 0704 CHAR = ‘OQ! ; 
: 157 0705 § ND ; 
; 158 0706 4 ELSE ; 
: 159 0707 5 IF (.CHAR EQL +") ; 
; 160 0708 4 THEN CHAR = ‘'O'; $ 
: 161 0709 3 END; ; 
; 16¢ 0710 4 IF ((.CHAR GEQ 'O") AND (.CHAR LEQ '9")) F 
; 16 0711 T ; 
> 164 Orie CHAR = .CHAR = ‘O' ; 
3 165 071 ELSE é 
: 166 0714 4 IF ((.CHAR GEQ 'A') AND (.CHAR LEQ 'F")) : 
: 167 0715 THEN 3 
: 168 0716 CHAR = .CHAR = ‘A’ + 10 ; 
: 169 0717 ELSE 3 
: 170 0718 3 CHAR = 256; : 
> 171 0719 3 IF .CHAR GEQ .PATSGB_MOD_PTR CMODE_RADIX ; 
; 172 0720 TH F 
: 17 0721 GIVE_MESSAGE = PAT$S_INVNUMBER : 
> 17% O73¢ ; 
: 175 Ore ELSE ; 
: 176 0724 EMUL(VALUECOJ, %REF(.PATSGB_MOD_PTRIMODE_RADIX]), CHAR, VALUE); : 
3 Vi 3763 3 IF .VALUEC1) NEQ 0 3 
; 179 0727 : GIVE_MESSAGE = PATS_NUMTRUNC; ! Numeric overflow 3 
> 180 0728 : END; 3 
$181 0729 IF (.GIVE_MESSAGE NEQ 0) ; 
: 182 0730 2 THEN 3 
: 18 0731 SIGNAL (.GIVE_MESSAGE) ; 3 
> «4184 ters IF NEGATE 3 
: 185 07 THEN ; 
: 186 0734 VALUETO] = = .VALUECO); ; 
> 187 735 2 VALUE_ADDR = .VALUELOJ; : 
+ 188 0736 1 END; ; 
| 
: 
| . 
! e 


5E 


10 
PATC 16-Sep-1984 00:26: VAX-11 Bliss-32 V4.0-742 Pa 6 | 
v04 baka Pi 90:48:93 DISKSVMSMASTER=CPATCH.SRCIPATCON.B32: 1" me 
7E D4 05 CLRL —sC-VALUE : 0690 : 
04 AE D4 0 CLRL = VALUE+4 : 0691 ; 
2 ¢ A CLRO  GIVE_MESSAGE : 69 : 
4 9000¢ CLRL ON : O71 | : 
50 04 BC42 9A 0 1$: MOVZBL @STRING_ADDRIN], CHAR + 0696 | ; 
71 1 1 BEQL 11S : ; 
52 d5 0001 TSTL ON : 0697 ; 
12 1 6 1 BNEQ 4$ : ; 
2D 50 D 19 CMPL SHAR, W465 + 0700! : 
if ic BNEG $ : : 
54 1 0D 1 MOVL #1, NEGATE : 0703 ; 
5 11 BRB 3$ : 0704 ; 
28 g D1 00023 2$: CMPL CHAR, #43 + 0707 | ; 
if 0 6 BNEQ 4$ : ; 
50 0 pO 00028 3$: MOVL #48, CHAR + 0708 : 
30 0 01 00028 4$: CMPL CHAR, #48 + 0710 
OA 19 000 BLSS $ : 
39 0 D1 900 CMPL CHAR, #57 : 
05 14 000 BGTR $ : 
50 0 ¢2 000 SUBL2 #48, CHAR + 0712 
1c 11 00038 BRB 7 : 
00000041 = 8F 50 D1 OO03A 5S: CMPL CHAR, #65 t 0714 
Og 19 00041 BLSS ; 
00000046 = &F 50 D1 00043 CMPL CHAR, #70 : 
03 14 0004A BGTR ; 
50 7 C2 0004¢ SUBL2 #55, CHAR : 0716 
05 11 0004F BRB ; 
50 0100 8F 3C 00051 68: MOVZWL #256, CHAR : 0718 
50 000000006 FF 08 00 ED 00036 7$: CMPZV #0, #8, @PATSGB_MOD_PTR, CHAR : 0719 
53 OO6DB0EA 8F 00 00061 MOVL #7176426, GIVE_MESSAGE : 0721 
OC 11 00068 BRB $ : 
51 000000006 FF 9A 0006A 8$: MOVZBL @PAT$GB_MOD PTR, R1 : 0724 
6E 50 51 6— 7A 00071 EMUL VALUE, R1, CHAR, VALUE ; 
04 «AE d3 00076 9$: TSTL LUE+4 : 0725 | 
0? 13 00079 BEQL Ss : 
53 00608023 BF 09 00078 MOVL #7176227, GIVE_MESSAGE + 0727 
ae 52 13 F3 00082 10$ AOBLEQ #19, N : 0694 
53 D3 00086 11$ TSTL GIVE _MESSAGE ; 0729, 
09 1 999 BEQL 12$ : 
53 DD 0008A PUSHL GIVE_MESSAGE : 0731 
000000006 00 01 FB sa CALLS #1 C1655] GNAL 3 
03 54 €9 00093 12$: BLBC NEGATE, 13$ : 0732 
6E 6E ce 90096 MNEGL VALUE, VALUE > 0734 
08 BC 6E DO 00099 13$:  MOVL VALUE, @VALUE_ADDR : 0735 
04 00090 RET : 0736 
; Routine Size: 158 bytes, Routine Base: _PATSCODE + 0 
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1heSep=1984 00:26:45  VAX=11 BLiss-32.v4.0-742 7 
on 808-13be 99:85:33 PT SUMGMASTERSEEATCH SACIPATCON.B3201°" (4), 


8788} ELDON z= 


LEXTRN LIBSSIGNAL | 
PSECT SUMMARY | 
Name Bytes Attributes 
_PATSCODE 158 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBISTARLET.L32;1 9776 4 0 581 00:01.0 
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COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATCON/OBJ=O0BJ$:PATCON MSRC$:PATCON/UPDATE=(ENH$:PATCON) 


; Bize: 158 code + 0 data bytes 
; Run Time: 00:11.5 

; ee Time: 09:89-8 

; Lines/CPU Min: af3! 

4 eee AS Made? 55426 

; Hemory Used: 107 pages 
; Compilation Complete 


030 AH-BT13A-SE T CORPORATION 
VAX/VMS V4.0 | | | -PROPRIETARY 


